home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / pdsoft / demo_library / 4382.lha / autoexec.AMOS / autoexec.amosSourceCode next >
AMOS Source Code  |  1980-06-03  |  16KB  |  679 lines
  1. Rem THIS IS THE MAIN MENU FOR DIFF APP.
  2. Set Buffer 25
  3. Screen Open 0,640,256,16,Hires
  4. Ink 0 : Paint 200,200,1
  5. Colour Back Colour(6)
  6. For X=2 To 15
  7.    Erase X
  8. Next X
  9. Limit Mouse 129,50 To 448,296
  10. Cls : Curs Off 
  11. Screen Open 1,640,256,16,Hires
  12. Screen Open 2,640,256,16,Hires
  13. Dim M$(100)
  14. Global M$
  15. 1
  16. Show On 
  17. Screen Open 0,640,256,16,Hires : Paper 9 : Ink 9 : Cls : 
  18. 10
  19. Fade 15
  20. Unpack 1 To 0
  21. L=0
  22. '
  23. '
  24. Reserve Zone(27)
  25. Set Zone 1,249,128 To 348,148
  26. Set Zone 2,387,128 To 608,147
  27. Set Zone 3,215,166 To 350,194
  28. Set Zone 4,350,166 To 480,194
  29. Set Zone 5,480,166 To 607,194
  30. Set Zone 6,215,194 To 350,218
  31. Set Zone 7,350,194 To 480,219
  32. Set Zone 8,480,194 To 607,219
  33. Set Zone 9,215,218 To 350,244
  34. Set Zone 10,350,218 To 480,244
  35. Set Zone 11,480,219 To 607,244
  36. Do 
  37.    K=Mouse Zone
  38.    T=Mouse Key
  39.    If K=1 and T=1 Then M$="app1:intro.TXT" : Paper 14 : Proc TS : Goto 10
  40.    If K=2 and T=1 Then Goto 101
  41.    If K=3 and T=1 Then Goto 102
  42.    If K=4 and T=1 Then Goto 103
  43.    If K=5 and T=1 Then Goto 104
  44.    If K=6 and T=1 Then Goto 105
  45.    If K=7 and T=1 Then Goto 106
  46.    If K=8 and T=1 Then Goto 107
  47.    If K=9 and T=1 Then Goto 108
  48.    If K=10 and T=1 Then Goto 109
  49.    If K=11 and T=1 Then M$="app1:sum.txt" : Paper 14 : Proc TS : Goto 10
  50. Loop 
  51. Wait Key 
  52. '
  53. Rem:full lecture 
  54. 101
  55. L=1
  56. M$="app1:intro.TXT" : Paper 14 : Proc TS
  57. Goto 102
  58. 1109
  59. M$="app1:sum.txt" : Paper 14 : Proc TS : Goto 10
  60. '
  61. Rem THIS IS THE 'QUALITY' SECTION  
  62. '
  63. 102
  64. Proc LD
  65. Limit Mouse 129,50 To 448,296
  66. Cls : Paper 0
  67. Locate 0,15 : Centre "** PLEASE WAIT - LOADING 'QUALITY' **"
  68. Flash Off 
  69. Cls 
  70. Load Iff "app1:p10"
  71. Locate 50,8 : Paper 15 : Print "** QUALITY **"
  72. M$="app1:t10.txt"
  73. Proc TES
  74. If L=1 Then Goto 103
  75. Goto 10
  76. Stop 
  77. '
  78. Rem:THIS IS THE HOLIDAY SECTION
  79. '
  80. 103
  81. Proc LD
  82. M$="app1:hol.txt" : Paper 14 : Proc TS
  83. Flash Off 
  84. Paper 0
  85. Cls 
  86. Load Iff "app1:p26"
  87. Locate 50,8 : Paper 15 : Print "** HOLIDAY PICTURES **"
  88. M$="app1:t26.txt"
  89. Proc BO
  90. Load Iff "app1:p40"
  91. Locate 50,8 : Paper 15 : Print "** HOLIDAY PICTURES **"
  92. M$="app1:t40.txt"
  93. Proc TES
  94. Fade 6 : Wait 90 : Cls 
  95. Ink 0 : Paint 200,200,1
  96. Load Iff "app1:p41"
  97. Locate 50,8 : Paper 15 : Print "** HOLIDAY PICTURES **"
  98. M$="app1:t41.txt"
  99. Proc TES
  100. If L=1 Then Goto 104
  101. Goto 10
  102. '
  103. Rem:This is the pictorial section' 
  104. '  
  105. 104
  106. Proc LD
  107. M$="app1:pict.txt" : Paper 14 : Proc TS
  108. Flash Off 
  109. Paper 0
  110. Cls 
  111. Load Iff "app1:p8"
  112. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  113. M$="app1:t8.txt"
  114. Proc TES
  115. Fade 6 : Wait 90 : Cls 
  116. Ink 0 : Paint 200,200,1
  117. Load Iff "app1:p25"
  118. M$="app1:t25.txt"
  119. Proc TES
  120. Fade 6 : Wait 90 : Cls 
  121. Ink 0 : Paint 200,200,1
  122. Load Iff "app1:p9"
  123. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  124. M$="app1:t9.txt"
  125. Proc TES
  126. Fade 6 : Wait 90 : Cls 
  127. Ink 0 : Paint 200,200,1
  128. Load Iff "app1:p13"
  129. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  130. M$="app1:t13.txt"
  131. Proc TES
  132. Fade 6 : Wait 90 : Cls 
  133. Ink 0 : Paint 200,200,1
  134. Load Iff "app1:p17"
  135. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  136. M$="app1:t17.txt"
  137. Proc TES
  138. Fade 6 : Wait 90 : Cls 
  139. Ink 0 : Paint 200,200,1
  140. Load Iff "app1:p19"
  141. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  142. M$="app1:t19.txt"
  143. Proc TES
  144. Fade 6 : Wait 90 : Cls 
  145. Ink 0 : Paint 200,200,1
  146. Load Iff "app1:p22"
  147. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  148. M$="app1:t22.txt"
  149. Proc TES
  150. Fade 6 : Wait 90 : Cls 
  151. Ink 0 : Paint 200,200,1
  152. Load Iff "app1:p23"
  153. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  154. M$="app1:t23.txt"
  155. Proc TES
  156. Fade 6 : Wait 90 : Cls 
  157. Ink 0 : Paint 200,200,1
  158. Load Iff "app1:p30"
  159. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  160. M$="app1:t30.txt"
  161. Proc TES
  162. Fade 6 : Wait 90 : Cls 
  163. Ink 0 : Paint 200,200,1
  164. Load Iff "app1:p37"
  165. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  166. M$="app1:t37.txt"
  167. Proc TES
  168. Fade 6 : Wait 90 : Cls 
  169. Ink 0 : Paint 200,200,1
  170. Load Iff "app1:p39"
  171. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  172. M$="app1:t39.txt"
  173. Proc TES
  174. Fade 6 : Wait 90 : Cls 
  175. Ink 0 : Paint 200,200,1
  176. Load Iff "app1:p49"
  177. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  178. M$="app1:t49.txt"
  179. Proc TES
  180. Fade 6 : Wait 90 : Cls 
  181. Ink 0 : Paint 200,200,1
  182. Load Iff "app1:p54"
  183. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  184. M$="app1:t54.txt"
  185. Proc TES
  186. Fade 6 : Wait 90 : Cls 
  187. Ink 0 : Paint 200,200,1
  188. Load Iff "app1:p56"
  189. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  190. M$="app1:t56.txt"
  191. Proc TES
  192. Fade 6 : Wait 90 : Cls 
  193. Ink 0 : Paint 200,200,1
  194. Load Iff "app1:p58"
  195. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  196. M$="app1:t58.txt"
  197. Proc TES
  198. Fade 6 : Wait 90 : Cls 
  199. Ink 0 : Paint 200,200,1
  200. Load Iff "app1:p60"
  201. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  202. M$="app1:t60.txt"
  203. Proc TES
  204. Fade 6 : Wait 90 : Cls 
  205. Ink 0 : Paint 200,200,1
  206. Load Iff "app1:p61"
  207. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  208. M$="app1:t61.txt"
  209. Proc TES
  210. Fade 6 : Wait 90 : Cls 
  211. Ink 0 : Paint 200,200,1
  212. Load Iff "app1:p67"
  213. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  214. M$="app1:t67.txt"
  215. Proc TES
  216. Fade 6 : Wait 90 : Cls 
  217. Ink 0 : Paint 200,200,1
  218. Load Iff "app1:p68"
  219. Locate 50,8 : Paper 15 : Print "** PICTORIAL PHOTOGRAPHY **"
  220. M$="app1:t68.txt"
  221. Proc TES
  222. If L=1 Then Goto 105
  223. Goto 10
  224. '
  225. '
  226. Rem:This is the portrait section'  
  227. '  
  228. 105
  229. Proc LD
  230. M$="app1:port.txt" : Paper 14 : Proc TS
  231. Flash Off 
  232. Paper 0
  233. Cls 
  234. Load Iff "app1:p2"
  235. Locate 50,8 : Paper 15 : Print "** PORTRAITURE **"
  236. M$="app1:t2.txt"
  237. Proc TES
  238. Fade 6 : Wait 90 : Cls 
  239. Ink 0 : Paint 200,200,1
  240. Load Iff "app1:p4"
  241. Do 
  242.    T=Mouse Key
  243.    If T<>0 Then Goto 15
  244. Loop 
  245. 15 Cls 
  246. M$="app1:t4.txt"
  247. Proc TS
  248. Fade 6 : Wait 90 : Cls 
  249. Ink 0 : Paint 200,200,1
  250. Load Iff "app1:p28"
  251. Locate 50,8 : Paper 15 : Print "** PORTRAITURE **"
  252. M$="app1:t28.txt"
  253. Proc TES
  254. Fade 6 : Wait 90 : Cls 
  255. Ink 0 : Paint 200,200,1
  256. Load Iff "app1:p36"
  257. Locate 50,8 : Paper 15 : Print "** PORTRAITURE **"
  258. M$="app1:t36.txt"
  259. Proc TES
  260. Fade 6 : Wait 90 : Cls 
  261. Ink 0 : Paint 200,200,1
  262. Load Iff "app1:p43"
  263. Locate 50,8 : Paper 15 : Print "** PORTRAITURE **"
  264. M$="app1:t43.txt"
  265. Proc TES
  266. Fade 6 : Wait 90 : Cls 
  267. Ink 0 : Paint 200,200,1
  268. Load Iff "app1:p48"
  269. Locate 50,8 : Paper 15 : Print "** PORTRAITURE **"
  270. M$="app1:t48.txt"
  271. Proc TES
  272. Fade 6 : Wait 90 : Cls 
  273. Ink 0 : Paint 200,200,1
  274. Load Iff "app1:p57"
  275. Locate 50,8 : Paper 15 : Print "** PORTRAITURE **"
  276. M$="app1:t57.txt"
  277. Proc TES
  278. Fade 6 : Wait 90
  279. Ink 14 : Paint 200,200,1
  280. If L=1 Then Goto 106
  281. Goto 10
  282. '
  283. '
  284. '
  285. Rem:This is the KIDS section'  
  286. '  
  287. 106
  288. Proc LDL
  289. M$="app2:kids.txt" : Paper 14 : Proc TS
  290. Flash Off 
  291. Paper 0
  292. Cls 
  293. Load Iff "app2:p33"
  294. Locate 50,8 : Paper 15 : Print "** PICTURES OF KIDS **"
  295. M$="app2:t33.txt"
  296. Proc TES
  297. Fade 6 : Wait 90 : Cls 
  298. Ink 0 : Paint 200,200,1
  299. Load Iff "app2:p45"
  300. Locate 50,8 : Paper 15 : Print "** PICTURES OF KIDS **"
  301. M$="app2:t45.txt"
  302. Proc TES
  303. Fade 6 : Wait 90 : Cls 
  304. Ink 0 : Paint 200,200,1
  305. Load Iff "app2:p47"
  306. Locate 50,8 : Paper 15 : Print "** PICTURES OF KIDS **"
  307. M$="app2:t47.txt"
  308. Proc TES
  309. If L=1 Then Goto 107
  310. Fade 6 : Wait 90 : Goto 10
  311. '
  312. '
  313. '
  314. Rem:This is the CANDIDS section'   
  315. '  
  316. 107
  317. Proc LDL
  318. M$="app2:cand.txt" : Paper 14 : Proc TS
  319. Flash Off 
  320. Paper 0
  321. Cls 
  322. Load Iff "app2:p1"
  323. Locate 43,8 : Paper 15 : Print "** CANDIDS - PICTURES OF PEOPLE **"
  324. M$="app2:t1.txt"
  325. Proc TES
  326. Fade 6 : Wait 90 : Cls 
  327. Ink 0 : Paint 200,200,1
  328. Load Iff "app2:p3"
  329. Locate 43,8 : Paper 15 : Print "** CANDIDS - PICTURES OF PEOPLE **"
  330. M$="app2:t3.txt"
  331. Proc TES
  332. Fade 6 : Wait 90 : Cls 
  333. Ink 0 : Paint 200,200,1
  334. Load Iff "app2:p5"
  335. Locate 43,8 : Paper 15 : Print "** CANDIDS - PICTURES OF PEOPLE **"
  336. M$="app2:t5.txt"
  337. Proc TES
  338. Fade 6 : Wait 90 : Cls 
  339. Ink 0 : Paint 200,200,1
  340. Load Iff "app2:p6"
  341. Locate 43,8 : Paper 15 : Print "** CANDIDS - PICTURES OF PEOPLE **"
  342. M$="app2:t6.txt"
  343. Proc TES
  344. Fade 6 : Wait 90 : Cls 
  345. Ink 0 : Paint 200,200,1
  346. Load Iff "app2:p7"
  347. Locate 43,8 : Paper 15 : Print "** CANDIDS - PICTURES OF PEOPLE **"
  348. M$="app2:t7.txt"
  349. Proc TES
  350. Fade 6 : Wait 90 : Cls 
  351. Ink 0 : Paint 200,200,1
  352. Load Iff "app2:p27"
  353. Locate 43,8 : Paper 15 : Print "** CANDIDS - PICTURES OF PEOPLE **"
  354. M$="app2:t27.txt"
  355. Proc TES
  356. Fade 6 : Wait 90 : Cls 
  357. Ink 0 : Paint 200,200,1
  358. Load Iff "app2:p53"
  359. Locate 43,8 : Paper 15 : Print "** CANDIDS - PICTURES OF PEOPLE **"
  360. M$="app2:t53.txt"
  361. Proc TES
  362. Fade 6 : Wait 90 : Cls 
  363. Ink 0 : Paint 200,200,1
  364. Load Iff "app2:p62"
  365. Locate 43,8 : Paper 15 : Print "** CANDIDS - PICTURES OF PEOPLE **"
  366. M$="app2:t62.txt"
  367. Proc TES
  368. Fade 6 : Wait 90 : Cls 
  369. Ink 0 : Paint 200,200,1
  370. Load Iff "app2:p63"
  371. Locate 43,8 : Paper 15 : Print "** CANDIDS - PICTURES OF PEOPLE **"
  372. M$="app2:t63.txt"
  373. Proc TES
  374. If L=1 Then Goto 108
  375. Fade 6 : Wait 90 : Goto 10
  376. '
  377. Rem:This is the NATHIST section'   
  378. '  
  379. 108
  380. Proc LDL
  381. M$="app2:nh.txt" : Paper 14 : Proc TS
  382. Flash Off 
  383. Paper 0
  384. Cls 
  385. Load Iff "app2:p11"
  386. Locate 43,8 : Paper 15 : Print "** NATURAL HISTORY **"
  387. M$="app2:t11.txt"
  388. Proc TES
  389. Fade 6 : Wait 90 : Cls 
  390. Ink 0 : Paint 200,200,1
  391. Load Iff "app2:p15"
  392. Locate 43,8 : Paper 15 : Print "** NATURAL HISTORY **"
  393. M$="app2:t15.txt"
  394. Proc TES
  395. Fade 6 : Wait 90 : Cls 
  396. Ink 0 : Paint 200,200,1
  397. Load Iff "app2:p16"
  398. Locate 43,8 : Paper 15 : Print "** NATURAL HISTORY **"
  399. M$="app2:t16.txt"
  400. Proc TES
  401. Fade 6 : Wait 90 : Cls 
  402. Ink 0 : Paint 200,200,1
  403. Load Iff "app2:p20"
  404. Locate 43,8 : Paper 15 : Print "** NATURAL HISTORY **"
  405. M$="app2:t20.txt"
  406. Proc TES
  407. Fade 6 : Wait 90 : Cls 
  408. Ink 0 : Paint 200,200,1
  409. Load Iff "app2:p21"
  410. Locate 43,8 : Paper 15 : Print "** NATURAL HISTORY **"
  411. M$="app2:t21.txt"
  412. Proc TES
  413. Fade 6 : Wait 90 : Cls 
  414. Ink 0 : Paint 200,200,1
  415. Load Iff "app2:p24"
  416. Locate 43,8 : Paper 15 : Print "** NATURAL HISTORY **"
  417. M$="app2:t24.txt"
  418. Proc TES
  419. Fade 6 : Wait 90 : Cls 
  420. Ink 0 : Paint 200,200,1
  421. Load Iff "app2:p31"
  422. Locate 43,8 : Paper 15 : Print "** NATURAL HISTORY **"
  423. M$="app2:t31.txt"
  424. Proc TES
  425. Fade 6 : Wait 90 : Cls 
  426. Ink 0 : Paint 200,200,1
  427. Load Iff "app2:p34"
  428. Locate 43,8 : Paper 15 : Print "** NATURAL HISTORY **"
  429. M$="app2:t34.txt"
  430. Proc TES
  431. Fade 6 : Wait 90 : Cls 
  432. Ink 0 : Paint 200,200,1
  433. Load Iff "app2:p35"
  434. Locate 43,8 : Paper 15 : Print "** NATURAL HISTORY **"
  435. M$="app2:t35.txt"
  436. Proc TES
  437. Fade 6 : Wait 90 : Cls 
  438. Ink 0 : Paint 200,200,1
  439. Load Iff "app2:p44"
  440. Locate 43,8 : Paper 15 : Print "** NATURAL HISTORY **"
  441. M$="app2:t44.txt"
  442. Proc TES
  443. Fade 6 : Wait 90 : Cls 
  444. Ink 0 : Paint 200,200,1
  445. Load Iff "app2:p64"
  446. Locate 43,8 : Paper 15 : Print "** NATURAL HISTORY **"
  447. M$="app2:t64.txt"
  448. Proc TES
  449. Fade 6 : Wait 90 : Cls 
  450. Ink 0 : Paint 200,200,1
  451. Load Iff "app2:p65"
  452. Locate 43,8 : Paper 15 : Print "** NATURAL HISTORY **"
  453. M$="app2:t65.txt"
  454. Proc TES
  455. Fade 6 : Wait 90 : Cls 
  456. Ink 0 : Paint 200,200,1
  457. Load Iff "app2:p66"
  458. Locate 43,8 : Paper 15 : Print "** NATURAL HISTORY **"
  459. M$="app2:t6.txt"
  460. Proc TES
  461. Fade 6 : Wait 90 : Cls 
  462. Ink 0 : Paint 200,200,1
  463. Load Iff "app2:p69"
  464. Locate 43,8 : Paper 15 : Print "** NATURAL HISTORY **"
  465. M$="app2:t69.txt"
  466. Proc TES
  467. If L=1 Then Goto 109
  468. Fade 6 : Wait 90 : Goto 10
  469. '
  470. Rem:This is the TRICKS section     
  471. '  
  472. 109
  473. Proc LDL
  474. M$="app2:trick.txt" : Paper 14 : Proc TS
  475. Flash Off 
  476. Paper 0
  477. Cls 
  478. Load Iff "app2:p12"
  479. Locate 43,8 : Paper 15 : Print "** TRICKS OF THE TRADE  **"
  480. M$="app2:t12.txt"
  481. Proc TES
  482. Fade 6 : Wait 90 : Cls 
  483. Ink 0 : Paint 200,200,1
  484. Load Iff "app2:p14"
  485. Locate 43,8 : Paper 15 : Print "** TRICKS OF THE TRADE  **"
  486. M$="app2:t14.txt"
  487. Proc TES
  488. Fade 6 : Wait 90 : Cls 
  489. Ink 0 : Paint 200,200,1
  490. Load Iff "app2:p29"
  491. Locate 43,8 : Paper 15 : Print "** TRICKS OF THE TRADE  **"
  492. M$="app2:t29.txt"
  493. Proc TES
  494. Fade 6 : Wait 90 : Cls 
  495. Ink 0 : Paint 200,200,1
  496. Load Iff "app2:p32"
  497. M$="app2:t32.txt"
  498. Proc TES
  499. Fade 6 : Wait 90 : Cls 
  500. Ink 0 : Paint 200,200,1
  501. Load Iff "app2:p38"
  502. Locate 43,8 : Paper 15 : Print "** TRICKS OF THE TRADE  **"
  503. M$="app2:t38.txt"
  504. Proc TES
  505. Fade 6 : Wait 90 : Cls 
  506. Ink 0 : Paint 200,200,1
  507. Load Iff "app2:p42"
  508. Locate 43,8 : Paper 15 : Print "** TRICKS OF THE TRADE  **"
  509. M$="app2:t42.txt"
  510. Proc TES
  511. Fade 6 : Wait 90 : Cls 
  512. Ink 0 : Paint 200,200,1
  513. Load Iff "app2:p46"
  514. Locate 43,8 : Paper 15 : Print "** TRICKS OF THE TRADE  **"
  515. M$="app2:t46.txt"
  516. Proc TES
  517. Fade 6 : Wait 90 : Cls 
  518. Ink 0 : Paint 200,200,1
  519. Load Iff "app2:p50"
  520. Locate 43,8 : Paper 15 : Print "** TRICKS OF THE TRADE  **"
  521. M$="app2:t50.txt"
  522. Proc TES
  523. Fade 6 : Wait 90 : Cls 
  524. Ink 0 : Paint 200,200,1
  525. Load Iff "app2:p51"
  526. Locate 43,8 : Paper 15 : Print "** TRICKS OF THE TRADE  **"
  527. M$="app2:t51.txt"
  528. Proc TES
  529. Fade 6 : Wait 90 : Cls 
  530. Ink 0 : Paint 200,200,1
  531. Load Iff "app2:p52"
  532. Locate 43,8 : Paper 15 : Print "** TRICKS OF THE TRADE  **"
  533. M$="app2:t52.txt"
  534. Proc TES
  535. Fade 6 : Wait 90 : Cls 
  536. Ink 0 : Paint 200,200,1
  537. Load Iff "app2:p18"
  538. Locate 43,8 : Paper 15 : Print "** TRICKS OF THE TRADE  **"
  539. M$="app2:t18.txt"
  540. Proc TES
  541. Fade 6 : Wait 90 : Cls 
  542. Ink 0 : Paint 200,200,1
  543. Load Iff "app2:p54"
  544. Locate 43,8 : Paper 15 : Print "** TRICKS OF THE TRADE  **"
  545. M$="app2:t54.txt"
  546. Proc TES
  547. If L=1 Then Goto 1109
  548. Fade 6 : Wait 90 : Goto 10
  549. '
  550. Procedure TS
  551.    Global M$
  552.    Curs Off : Cls 
  553.    Open In 1,M$
  554.    887
  555.    X=2
  556.    Do 
  557.       If Eof(1) Then Goto 882
  558.       Set Input 10,-1
  559.       Line Input #1,N$
  560.       Locate 4,X : Print N$
  561.       X=X+1
  562.       If X=27 Then Goto 883
  563.       If Key State(50) Then Proc PTS
  564.    Loop 
  565.    '
  566.    '
  567.    883
  568.    Locate 1,29 : Centre "**  LEFT MOUSE KEY FOR MORE TEXT OR RETURN **"
  569.    Do 
  570.       T=Mouse Key
  571.       If T<>0 Then Cls : Goto 887
  572.    Loop 
  573.    Wait Key 
  574.    882
  575.    Do 
  576.       Locate 1,29 : Centre "**  LEFT MOUSE KEY FOR MORE TEXT OR RETURN - 'X' TO PRINT **"
  577.       T=Mouse Key
  578.       If T<>0 Then Goto 21
  579.       If Key State(50) Then Proc PTS
  580.    Loop 
  581.    21
  582.    Close 1
  583. End Proc
  584. '
  585. Procedure TES
  586. Global M$
  587. Open In 1,M$
  588. Locate 0,17 : Paper 13 : Centre "                                                                                "
  589. Locate 0,19 : Paper 13 : Centre "                                     "
  590. Locate 0,21 : Paper 13 : Centre "                                       "
  591. Locate 0,23 : Paper 13 : Centre "                                       "
  592.    987
  593. X=18
  594. Do 
  595. Locate 0,X : Paper 13 : Print "                                                                                "
  596. X=X+1
  597. Exit If X=30
  598. Loop 
  599.    X=18
  600.    Do 
  601.       If Eof(1) Then Goto 982
  602.       Set Input 10,-1
  603.       Line Input #1,N$
  604.       Locate 4,X : Paper 13 : Print N$
  605.       X=X+1 : 
  606.       If X=29 Then Goto 983
  607.    Loop 
  608.    '
  609.    '
  610.    983
  611.    Locate 1,30 : Centre "           **  LEFT MOUSE KEY FOR MORE TEXT OR RETURN **           "
  612.    Do 
  613.       T=Mouse Key
  614.       If T<>0 Then Goto 987
  615.    Loop 
  616.    Wait Key 
  617.    982
  618.    Do 
  619.       Locate 1,30 : Centre "   **  LEFT MOUSE KEY FOR MORE TEXT OR RETURN - 'X' TO PRINT **   "
  620.       T=Mouse Key
  621.       If T<>0 Then Goto 22
  622.       If Key State(50) Then Proc PTS
  623.    Loop 
  624.    22
  625.    Close 1
  626. End Proc
  627. '
  628. Procedure BO
  629. Proc TES
  630. Fade 6 : Wait 90 : Cls 
  631. Ink 0 : Paint 200,200,1
  632. End Proc
  633. '
  634. Procedure PTS
  635.    Cls : Locate 0,15 : Paper 6 : Centre "** PRINTER ON, PAPER IN, PRESS MOUSE BUTTON **"
  636.    Do 
  637.       T=Mouse Key
  638.       If T<>0 Then Goto 2129
  639.    Loop 
  640.    2129
  641.    Close 1
  642.    Curs Off : Cls 
  643.    Open In 1,M$
  644.    Do 
  645.       If Eof(1) Then Goto 1882
  646.       Set Input 10,-1
  647.       Line Input #1,M$
  648.       Locate 4,X : Lprint M$
  649.    Loop 
  650.    1882
  651.    Do 
  652.       Locate 1,15 : Paper 4 : Centre "**  LEFT MOUSE KEY TO EXIT **"
  653.       T=Mouse Key
  654.       If T<>0 Then Goto 2121
  655.    Loop 
  656.    2121
  657. End Proc
  658. '
  659. Procedure LD
  660.    Screen Open 0,640,256,16,Hires : Curs Off 
  661.    Locate 0,14 : Paper 8 : Centre "** PUT DISK 1 IN ANY DRIVE **"
  662.    Locate 0,18 : Paper 8 : Centre "** PRESS LEFT MOUSE BUTTON **"
  663.    Do 
  664.       T=Mouse Key
  665.       If T<>0 Then Pop Proc
  666.       If Key State(69)=True Then Goto 10
  667.    Loop 
  668. End Proc
  669. '
  670. Procedure LDL
  671.    Screen Open 0,640,256,16,Hires : Curs Off 
  672.    Locate 0,14 : Paper 8 : Centre "** PUT DISK 2 IN ANY DRIVE **"
  673.    Locate 0,18 : Paper 8 : Centre "** PRESS LEFT MOUSE BUTTON **"
  674.    Do 
  675.       T=Mouse Key
  676.       If T<>0 Then Pop Proc
  677.       If Key State(69)=True Then Goto 10
  678.    Loop 
  679. End Proc